home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / graphics / fractal fantasy.amos / fractal fantasy.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-13  |  10KB  |  301 lines
  1. ' *****************************************************
  2. ' *                                                   *
  3. ' *                    WELCOME!!                      *
  4. ' *                                                   *
  5. ' *               BITMAPED PRODUCTIONS                *
  6. ' *                                                   *
  7. ' *                     PRESENT                       *
  8. ' *                                                   *
  9. ' *                'FRACTAL FANTASY'                  *
  10. ' *                                                   *
  11. ' *                                                   *
  12. ' * CODE:                                             *
  13. ' *                                             YAZOO *
  14. ' *                                                   *
  15. ' * GFX:                                              *
  16. ' *                        YAZOO, MURCARY, SLIPSTREAM *
  17. ' *                                                   *
  18. ' * MUSIC:                                            *
  19. ' *                                         DUAL CREW *
  20. ' *                                                   *
  21. ' * NB:On title screen press mouse button to continue *
  22. ' *****************************************************
  23. TITLE
  24. DEMO
  25. FINNISH
  26. End 
  27. Procedure TITLE
  28. Screen Close 0
  29. Hide 
  30. Auto View Off 
  31. Screen Open 1,350,100,2,Lowres
  32. Screen Display 1,136,-80,,
  33. Screen Hide 1
  34. View 
  35. Screen Open 2,350,20,2,Lowres
  36. Screen 1
  37. Curs Off 
  38. Screen Display 2,126,150,,
  39. Screen 2
  40. Curs Off 
  41. Palette $0,$0
  42. Centre "BITMAPED PRODUCTIONS 1991"
  43. Screen 1
  44. Screen Hide 1
  45. Unpack 8 To 1
  46. View 
  47. Auto View On 
  48. Screen 1
  49. Rem Cls 0
  50. For Q=-80 To 50 Step 1
  51. Screen Display 1,136,Q,,
  52. Wait Vbl 
  53. Next Q
  54. Screen 2
  55. Fade 5,$0,$FFF
  56. Repeat 
  57. Until Mouse Key<>0
  58. For Q=50 To -80 Step -1
  59. Screen Display 1,136,Q,,
  60. Wait Vbl 
  61. Next Q
  62. Screen 2
  63. Fade 5,$0,$0
  64. Wait 75
  65. End Proc
  66. Procedure DEMO
  67. Screen Open 0,351,200,2,Lowres
  68. Screen Open 1,391,30,2,Lowres
  69. Screen Open 2,350,200,2,Lowres
  70. Hide 
  71. Unpack 7 To 2
  72. Screen To Back 2
  73. Autoback 0
  74. Bob Update Off 
  75. Unpack 6 To 0
  76. Screen Hide 0
  77. Screen To Front 1
  78. Music 1
  79. SC$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789(!).,'-=+?*%&#:;@"
  80. Dim C$(Len(SC$)),XI(Len(SC$)),YI(Len(SC$)),XII(Len(SC$)),YII(Len(SC$))
  81. Screen 1
  82. Curs Off 
  83. Restore 
  84. For Q=1 To Len(SC$)
  85.    Read C$(Q)
  86.    Read XI(Q)
  87.    Read YI(Q)
  88.    Read XII(Q)
  89.    Read YII(Q)
  90. Next Q
  91. CLOP:
  92. Read LP
  93. Dim CL(LP)
  94. For Q=1 To LP
  95. Read CL(Q)
  96. Next Q
  97. SPEED=4
  98. S$="    \08 # # # #     WELCOME!!    \04BITMAPED PRODUCTIONS PRESENTS A NEW DEMO!!!"
  99. S$=S$+"       CALLED      \02 'FRACTAL FANTASY'   \04          "
  100. S$=S$+" OHHH I LOVE \16S\04P\02E\08E\01D\04 SCROLLZ!!   "
  101. S$=S$+" NOW THE CREDITS!!  \08 CODE & INTRO GRAPHICS BY \04YAZOO!! "
  102. S$=S$+"(INTRO GFX IS RAY-TRACED AND WAS DUN IN REAL 3D!)\08    LOGO BY \04MURCARY       \08FONT AND END SAMPLE BY \04SLIPSTREAM!!\08"
  103. S$=S$+" MUSIC FROM \04DUAL CREW \08 "
  104. S$=S$+"    PLEASE NOTE, THE FRACTAL WAS +NOT+ RENDERED BY AMOS, COS I DON'T KNOW THE ROUTINE!\04"
  105. S$=S$+" WELL IF YOU DONT KNOW THIS DEMO WAS CREATED ON -= A M O S =-"
  106. S$=S$+" WELL LET ME SEND GREETS TO 2 COOL DUDES, THEY ARE"
  107. S$=S$+" ; & @ WHO ARE ALSO IN #!!! WHAT NOW??? ERRMMM HOW ABOUT THIS...."
  108. S$=S$+" ****** JOYSTICK INVASTION!!! CONTACT ME FOR % P.D. % SWAPPING (LEGAL!!)"
  109. S$=S$+" AT THE FOLLOWING ADDRESS..... \02104 LONDON ROAD, STANWAY, COLCHESTER, ESSEX, CO3 5HD"
  110. S$=S$+", ENGLAND (OFF COURSE!!!). \08    AHH A MUCH BETTER SPEED!"
  111. S$=S$+" WELL EXPECT TO SEE A FAIR BIT MORE FROM US. SOON TO COME......."
  112. S$=S$+"    + UNLIMITED BOBS +    "
  113. S$=S$+"  %  WELL WHATS HAPPENING??? NOT MUCH AT THE MOMENT!! A +FEW+ GREETZ"
  114. S$=S$+" WILL FOLLOW............ \08GIGA HELLOS TO ..... K-TEL (YO! WHATS HAPPEING DUDE"
  115. S$=S$+", ARE U STILL REGRETING???)    MURCURY (NICE LOGOS, KEEP EM COMMING!"
  116. S$=S$+" HOPE TO SEE SOME NICE FONTS AS WELL!!)   FRANCOIS LIONET (I LIKE IT!! HURRY UP WITH AMOS 3D!!!!!)"
  117. S$=S$+" WILLIAM (I KNOW YOU DON'T LIKE BASIC, BUT ITS GOOD, NO???)   & TO ALL MY CONTACTS!!"
  118. S$=S$+" -------\04    MAN YOU CAN NOT BELEVE HOW +BORING+ IT IS TO TYPE OUT ALL THOSE NUMBERS TO MAKE THE COLOUR CYCLING!! (630 NUMBERS!)"
  119. S$=S$+" I WOULD OFF PUT MORE IN BUT IT IS SO TEDIOUS! MABEE NEXT TIME!"
  120. S$=S$+" JUST INCASE YOU DON'T KNOW, SQUASH A RAT EAR TO QUIT!!! "
  121. S$=S$+" \08THIS DEMO MAY BE SPREAD ACCORDING TO THE FOLLOWING CONDITIONS....."
  122. S$=S$+" ALL ITS CODE, GFX AND MUSIC REMAIN INTACT AND NOT ALTERED IN ANY WAY AND IT IS NOT IN A MUTILATED CONDITION."
  123. S$=S$+"           HO HUM DID YOU GET THAT??? "
  124. S$=S$+" WELL WITH THAT JOLLY LAST WORD I, YAZOO, CONCLUDE THIS SCROLL!!"
  125. S$=S$+"\16   ....................................WRAP DA TEXT!!......................................               %%%%% "
  126. LS=Len(S$)
  127. L=Len(SC$)
  128. Screen 1
  129. Double Buffer 
  130. Curs Off 
  131. Palette $FF0,$F00
  132. POS=1
  133. COUNT=8
  134. Ink 1
  135. MAIN:
  136. If COUNT=32/SPEED Then Gosub SCR0L
  137. If Mouse Key<>0 Then Goto THATSALL : 
  138. COUNT=COUNT+1
  139. Screen 2
  140. Shift Down 50,1,31,0
  141. Palette ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CL(D)
  142. D=D+1
  143. If D=LP Then D=1
  144. Screen Swap 
  145. Screen Copy Logic(1),SPEED,0,393,26 To Physic(1),0,0
  146. Wait Vbl 
  147. Goto MAIN
  148. Rem ****** THE SCROLL *******
  149.    SCR0L:
  150.    P$=Mid$(S$,POS,1)
  151.    If P$="\" Then Goto SCR0LLALT
  152.    If POS=LS Then POS=0
  153.    COUNT=0
  154.    POS=POS+1
  155.    T=Instr(SC$,P$)
  156.    Screen Copy 0,XI(T),YI(T),XII(T),YII(T) To Physic(1),350,0 : Return 
  157.    SCR0LLALT:
  158.    POS=POS+1
  159.    P$=Mid$(S$,POS,2)
  160.    SPEED=Val(P$)
  161.    POS=POS+2
  162.    Goto SCR0L
  163. Data "A",0,0,32,26
  164. Data "B",32,0,64,26
  165. Data "C",64,0,96,26
  166. Data "D",96,0,128,26
  167. Data "E",128,0,160,26
  168. Data "F",160,0,192,26
  169. Data "G",192,0,224,26
  170. Data "H",224,0,256,26
  171. Data "I",256,0,288,26
  172. Data "J",0,26,32,52
  173. Data "K",32,26,64,52
  174. Data "L",64,26,96,52
  175. Data "M",96,26,128,52
  176. Data "N",128,26,160,52
  177. Data "O",160,26,192,52
  178. Data "P",192,26,224,52
  179. Data "Q",224,26,256,52
  180. Data "R",256,26,288,52
  181. Data "S",0,52,32,78
  182. Data "T",32,52,64,78
  183. Data "U",64,52,96,78
  184. Data "V",96,52,128,78
  185. Data "W",128,52,160,78
  186. Data "X",160,52,192,78
  187. Data "Y",192,52,224,78
  188. Data "Z",224,52,256,78
  189. Data " ",256,52,288,78
  190. Data "0",0,78,32,104
  191. Data "1",32,78,64,104
  192. Data "2",64,78,96,104
  193. Data "3",96,78,128,104
  194. Data "4",128,78,160,104
  195. Data "5",160,78,192,104
  196. Data "6",192,78,224,104
  197. Data "7",224,78,256,104
  198. Data "8",256,78,288,104
  199. Data "9",0,104,32,130
  200. Data "(",32,104,64,130
  201. Data "!",64,104,96,130
  202. Data ")",96,104,128,130
  203. Data ".",128,104,160,130
  204. Data ",",160,104,192,130
  205. Data "'",192,104,224,130
  206. Data "-",224,104,256,130
  207. Data "=",256,104,288,130
  208. Data "+",0,130,32,156
  209. Data "?",32,130,64,156
  210. Data "*",64,130,96,156
  211. Data "%",96,130,128,156
  212. Data "&",128,130,160,156
  213. Data "#",160,130,192,156
  214. Data ":",192,130,224,156
  215. Data ";",224,130,256,156
  216. Data "@",256,130,288,156
  217. Data 630
  218. Data $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  219. Data $EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777,$666,$555,$444,$333,$222,$111
  220. Rem  
  221. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  222. Rem  
  223. Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  224. Data $F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0,$FF0
  225. Rem Ninety 
  226. Data $EF0,$DF0,$CF0,$BF0,$AF0,$9F0,$8F0,$7F0,$6F0,$5F0,$4F0,$3F0,$2F0,$1F0,$F0
  227. Data $F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF
  228. Rem  
  229. Data $EF,$DF,$CF,$BF,$AF,$9F,$8F,$7F,$6F,$5F,$4F,$3F,$2F,$1F,$F
  230. Data $E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  231. Rem  
  232. Data $0,$100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  233. Data $E00,$D00,$C00,$B00,$A00,$900,$800,$700,$600,$500,$400,$300,$200,$100
  234. Rem 180
  235. Data $0,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$E0,$F0
  236. Data $E0,$D0,$C0,$B0,$A0,$90,$80,$70,$60,$50,$40,$30,$20,$10
  237. Rem 210  
  238. Data $0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F
  239. Data $E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4,$3,$2,$1
  240. Rem 240
  241. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  242. Rem 270
  243. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$3,$6,$9,$C,$F
  244. Data $C,$9,$6,$3,$0,$3,$6,$9,$A,$F,$A,$9,$6,$3,$0,$3,$6,$9,$C,$F,$C,$9,$6,$3,$0,$0,$0,$0,$0,$0
  245. Rem 330
  246. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  247. Rem 360
  248. Data $111,$101,$222,$202,$333,$303,$444,$404,$555,$505,$666,$606,$777,$707,$888,$808
  249. Data $999,$909,$AAA,$A0A,$BBB,$B0B,$CCC,$C0C,$DDD,$D0D,$EEE,$E0E,$FFF,$F0F
  250. Data $FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF
  251. Data $F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F,$FFF,$F0F
  252. Data $EEE,$E0E,$DDD,$D0D,$CCC,$C0C,$BBB,$B0B,$AAA,$A0A,$999,$909
  253. Data $888,$808,$777,$707,$666,$606,$555,$505,$444,$404,$333,$303,$222,$202,$111,$101,$0,$0
  254. Rem 450
  255. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  256. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  257. Rem 510
  258. Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  259. Data $F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0,$FF0
  260. Data $EE0,$DD0,$CC0,$BB0,$AA0,$990,$880,$770,$660,$550,$440,$330,$220,$110,$0
  261. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  262. Rem 570
  263. Data $1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F
  264. Data $10F,$20F,$30F,$40F,$50F,$60F,$70F,$80F,$90F,$A0F,$B0F,$C0F,$D0F,$E0F,$F0F
  265. Data $E0E,$D0D,$C0C,$B0B,$A0A,$909,$808,$707,$606,$505,$404,$303,$202,$101,$0
  266. Data $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  267. Rem 630
  268. THATSALL:
  269. Screen 2
  270. Shift Down 1,1,31,0
  271. Screen 1
  272. Fade 1
  273. Wait 28
  274. Screen 2
  275. Fade 1
  276. Wait 28
  277. Screen Close 0
  278. Screen Close 1
  279. Screen Close 2
  280. For Q=63 To 0 Step -1
  281. Volume Q
  282. Wait 2
  283. Next Q
  284. Music Off 
  285. Volume 63
  286. End Proc
  287. Procedure FINNISH
  288. Screen Open 0,350,150,8,Lowres
  289. Screen Hide 0
  290. Unpack 9 To 0
  291. Palette $0,$0,$0,$0,$0,$0,$0,$0
  292. Screen Show 0
  293. Fade 5,$0,$FFF,$DDD,$BBB,$999,$777,$555,$333
  294. Wait 75
  295. Volume 63
  296. Sam Play %1111,1,13000
  297. Wait 300
  298. Fade 5
  299. Wait 100
  300. Screen Close 0
  301. End Proc